home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / nrpas13.zip / POLIN2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-29  |  569b  |  22 lines

  1. PROCEDURE polin2(x1a: glmarray; x2a: glnarray; ya: glmbyn;
  2.        m,n: integer; x1,x2: real; VAR y,dy: real);
  3. (* Programs using POLIN2 must define the types
  4. TYPE
  5.    glmarray = ARRAY [1..m] OF real;
  6.    glnarray = ARRAY [1..n] OF real;
  7.    glmbyn = ARRAY [1..m,1..n] OF real;
  8. in the main routine. *)
  9. VAR
  10.    k,j: integer;
  11.    ymtmp: glmarray;
  12.    yntmp: glnarray;
  13. BEGIN
  14.    FOR j := 1 TO m DO BEGIN
  15.       FOR k := 1 TO n DO BEGIN
  16.          yntmp[k] := ya[j,k]
  17.       END;
  18.       polint(x2a,yntmp,n,x2,ymtmp[j],dy)
  19.    END;
  20.    polint(x1a,ymtmp,m,x1,y,dy)
  21. END;
  22.